home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Utilities / ViewIt Shareware / ViewIt™ 2.04 Shareware / Projects / Fortran Demos / MinimumLF.f < prev    next >
Text File  |  1992-08-04  |  681b  |  25 lines
  1. C NOTE: Read the "MPW Fortrans" section of "About Compilers"
  2. C before compiling LF programs that use FaceWare modules.
  3.  
  4. C Minimum LF Demonstration Program
  5. C ©FaceWare 1991-92.  All Rights Reserved.
  6.  
  7. !!M Inlines.f
  8. !!I FaceProcLF.inc
  9.  
  10.       PROGRAM MinimumLF
  11.     implicit none
  12. C NOTE: If you use the "!!G" directive for precompiled globals, add
  13. C our FaceStorLF.inc globals to yours and then remove following line
  14.     include 'FaceStorLF.inc'
  15.       record /FaceRec/ fRec
  16.       common/FaceStuff/fRec
  17.  
  18.       fRec.uName = 'Minimum.Rsrc'
  19.       call FaceIt(0,DoInit,0,0,0,0)
  20.     call FaceIt(0,HlpWnd,0,0,10,10)  !optional
  21.       do while (.true.)
  22.         call FaceIt(0,DoLoop,0,0,0,0)
  23.     end do
  24.     end
  25.